@@ -1693,11 +1693,11 @@
 	  #f))))
  
 (define (common:write-cached-info key dtype dat)
   (let* ((fulldir  (conc *toppath* "/.sysdata"))
 	 (fullpath (conc fulldir "/" key "-" dtype ".log")))
-    (if (not (file-exists? fulldir))(create-directory fullpath #t))
+    (if (not (file-exists? fulldir))(create-directory fulldir #t))
     (handle-exceptions
      exn
      #f
      (with-output-to-file fullpath (lambda ()(pp dat))))))