@@ -58,11 +58,12 @@
     fullpath))
 (define *common:this-exe-fullpath* (common:get-this-exe-fullpath))
 (define *common:this-exe-dir*      (pathname-directory *common:this-exe-fullpath*))
 (define *common:this-exe-name*     (pathname-strip-directory *common:this-exe-fullpath*))
 
-(let* ((libpath (conc *common:this-exe-dir* "/../../eggs/lib/chicken/7")))
+(let* ((libpath-number (car (reverse (string-split  (repository-path) "/"))))
+       (libpath (conc *common:this-exe-dir* "/../../eggs/lib/chicken/" libpath-number)))
   (if (and (not (get-environment-variable "CHICKEN_REPOSITORY"))
            (directory-exists? libpath))
       (repository-path libpath)))