--- a/Integer.st	Mon Dec 02 11:25:51 2019 +0100
+++ b/Integer.st	Mon Dec 02 12:36:27 2019 +0100
@@ -1518,6 +1518,7 @@
     "Modified: / 25-08-2017 / 12:32:47 / cg"
 ! !
 
+
 !Integer methodsFor:'bcd conversion'!
 
 decodeFromBCD
@@ -5335,10 +5336,13 @@
     ].
 
     "/ q&d check for common small squares
-    self < 400 ifTrue:[
-        ^ #(1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 256 289 324 361 ) includes:self.
-    ].
     self < 1024 ifTrue:[
+        self < 400 ifTrue:[
+            self <= 100 ifTrue:[
+                ^ #(1 4 9 16 25 36 49 64 81 100) includes:self.
+            ].
+            ^ #(121 144 169 196 225 256 289 324 361) includes:self.
+        ].
         ^ #(400 441 484 529 576 625 676 729 784 841 900 961) includes:self.
     ].