Index: /trunk/ccl/level-1/l1-reader.lisp
===================================================================
--- /trunk/ccl/level-1/l1-reader.lisp	(revision 438)
+++ /trunk/ccl/level-1/l1-reader.lisp	(revision 439)
@@ -98,6 +98,7 @@
 
 (defun whitespacep (char)
-  (when (fixnump char) (setq char (%code-char char)))
-  (%str-member char #.wsp&cr))
+  (eql $cht_wsp (%character-attribute char (rdtab.ttab *readtable*))))
+	   
+	 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;