@@ -315,11 +315,11 @@
     (if (common:file-exists? debugcontrolf)
 	(load debugcontrolf)))
 
   ;; usage logging, careful with this, it is not designed to deal with all real world challenges!
   ;;
-  (if (and *usage-log-file*
+  (if (and (string? *usage-log-file*)
            (file-write-access? *usage-log-file*))
       (with-output-to-file
           *usage-log-file*
 	(lambda ()
           (print (if *usage-use-seconds*