--- a/MCScanner.st	Thu Nov 06 10:08:04 2014 +0100
+++ b/MCScanner.st	Thu Dec 11 16:49:15 2014 +0100
@@ -22,11 +22,11 @@
 !MCScanner class methodsFor:'as yet unclassified'!
 
 scan: aStream
+    ^ (self new stream: aStream) next
+
+    "kludge:
 
     | v |
-    "Kludge"
-    ^ (self new stream: aStream) next
-    "
     [ v := (self new stream: aStream) next ]
         on: RecursionInterruptSignal do:[:ex|ex proceed].
     ^v
@@ -110,14 +110,14 @@
 !MCScanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.5 2013-05-15 12:03:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.5 2013-05-15 12:03:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCScanner.st,v 1.5 2013-05-15 12:03:45 cg Exp $'
+    ^ '$Id: MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $'
 ! !