@@ -521,13 +521,19 @@
   (if start-watchdog
       (thread-start! *watchdog*)))
 
 
 ;; bracket open-output-file with code to make leading directory if it does not exist and handle exceptions
-(define (open-logfile logpath)
+(define (open-logfile logpath-in)
   (condition-case
-   (let* ((log-dir (or (pathname-directory logpath) ".")))
+   (let* ((log-dir (or (pathname-directory logpath-in) "."))
+	  (fname   (pathname-strip-directory logpath-in))
+	  (logpath (if (> (string-length fname) 250)
+		       (let ((newlogf (conc log-dir "/" (common:get-signature fname) ".log")))
+			 (debug:print 0 *default-log-port* "WARNING: log file " logpath-in " path too long, converted to " newlogf)
+			 newlogf)
+		       logpath-in)))
      (if (not (directory-exists? log-dir))
          (system (conc "mkdir -p " log-dir)))
      (open-output-file logpath))
    (exn ()
         (debug:print-error 0 *default-log-port* "Could not open log file for write: "logpath)