--- a/Scanner.st	Fri Feb 26 13:13:31 1999 +0100
+++ b/Scanner.st	Fri Feb 26 15:16:45 1999 +0100
@@ -1432,6 +1432,11 @@
     (nextChar == $r) ifTrue:[
         tokenRadix := value.
         source next.
+
+        (tokenRadix between:2 and:36) ifFalse:[
+            self syntaxError:'bad radix (must be 2 .. 36)'
+                    position:tokenPosition to:(source position - 1).
+        ].
         s := 1.
         source peekOrNil == $- ifTrue:[
             source next.
@@ -1895,6 +1900,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.90 1999-02-02 21:44:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.91 1999-02-26 14:16:45 cg Exp $'
 ! !
 Scanner initialize!