@@ -44,13 +44,13 @@
      isodate->wwdate
      wwdate->seconds
      wwdate->isodate
      current-wwdate
      current-isodate
-     *this-exe-dir*
-     *this-exe-name*
-     *this-exe-fullpath*
+     ;; *this-exe-dir*
+     ;; *this-exe-name*
+     ;; *this-exe-fullpath*
      )
 
   (import scheme
 	  chicken.base
 	  chicken.condition
@@ -1101,13 +1101,13 @@
            
            ;;(foo (begin (print "hello "(find-exe "/bin/sh") #f)))
            (fullpath (or (find-exe this-script) (realpath this-script))))
       fullpath))
   
-  (define *this-exe-fullpath* (__get-this-script-fullpath))
-  (define *this-exe-dir*      (pathname-directory *this-exe-fullpath*))
-  (define *this-exe-name*     (pathname-strip-directory *this-exe-fullpath*))
+  ;; (define *this-exe-fullpath* (__get-this-script-fullpath))
+  ;; (define *this-exe-dir*      (pathname-directory *this-exe-fullpath*))
+  ;; (define *this-exe-name*     (pathname-strip-directory *this-exe-fullpath*))
   
 
 ;;;; utility procedures