Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -323,11 +323,11 @@
 	"unknown"
 	(caar uname-res))))
 	      
 (define (save-environment-as-files fname #!key (ignorevars (list "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR")))
   (let ((envvars (get-environment-variables))
-        (whitesp (regexp "[^a-zA-Z0-9_\\-:,.\\/%$]")))
+        (whitesp (regexp "[^a-zA-Z0-9_\\-:;,.\\/%$]")))
      (with-output-to-file (conc fname ".csh")
        (lambda ()
           (for-each (lambda (key)
 		      (if (not (member key ignorevars))
 			  (let* ((val (cdr key))