diff --git a/src/clever.lisp b/src/clever.lisp
index 291bf78..a78f9e5 100644
--- a/src/clever.lisp
+++ b/src/clever.lisp
@@ -38,8 +38,9 @@
       #+ABCL "lisp"
       #+(and :DEC :Ultrix) "lsp"
       #+:VMS "LSP"
-      #+:ccl "LISP"			;Coral
+      #+:ccl "lisp"			;Coral
       #+allegro "lisp" ;or cl ... hmm.
+      #+sbcl "lisp"
       "lisp"				;For Unix, Exploder, and anyone else
       ))
 
@@ -53,11 +54,12 @@
       #+(and :DEC :VMS) "FAS"
       #+Lucid (car lucid::*load-binary-pathname-types*)  ;?
       #+KCL "o"
-      #+:ccl "FASL"			;Coral
+      #+:ccl "lx64fsl"			;Coral
       #+LispWorks "fsl"
       #+allegro "fasl"
       #+(and cmu hpux) "hpf"
       #+abcl "abcl"
+      #+sbcl "fasl"
       ))   ;(or) => nil otherwise
 
 (defvar *compile-if-necessary-p* nil)
@@ -169,4 +171,3 @@
 				 ~%but loading source because it's newer.~%"
 				(namestring obj?))
 			(load-it src?)))))))))
-
diff --git a/src/eval.lisp b/src/eval.lisp
index 7566748..e77634d 100644
--- a/src/eval.lisp
+++ b/src/eval.lisp
@@ -25,7 +25,7 @@
 
 (defun scheme-eval (form env)
   (eval (scheme-translator:translate form env)))
-      
+
 
 ; Hack to get define-syntaxes communicated from .bin files to system
 ; in which .bin file is loaded.  Calls to *define-syntax!* necessarily
@@ -89,7 +89,7 @@
 	;; Intentionally absent: right parenthesis, semicolon, whitespace
 	'(
 	  ;; Non-constituents
-	  "\"#'(,`"
+	  "\"'(,`"
 	  ;; Constituents (more or less)
 	  ;;
 	  ;; Actually we don't want to hack these, since otherwise the
@@ -197,7 +197,7 @@
 	  (*target-package* (scheme-translator:program-env-package env))
 	  (*scheme-read* *scheme-read*))  ;Allow (setq *scheme-read* ...)
       (funcall fun env))))
-	
+
 
 ; TRANSLATE-FILE
 
@@ -374,7 +374,7 @@
                         (system::listener-top-loop ; Seems to work better than system::%top-level
                          ;; You could specify :PROMPT here (see LW:*PROMPT*) but the default is good.
                          :eval-print-hook
-                         #'(lambda (values) 
+                         #'(lambda (values)
                              (let ((*print-case* :downcase))
                                (loop for (result . more) on values
                                      do (write-result result)
@@ -456,4 +456,3 @@
   (set-in-user-env 'scheme::pp		   #'pp)
   (set-in-user-env 'scheme::error	   #'scheme-error)
   (set-in-user-env 'scheme::benchmark-mode #'benchmark-mode))
-