--- a/Integer.st	Tue Jan 13 18:38:47 2009 +0100
+++ b/Integer.st	Tue Jan 13 21:46:34 2009 +0100
@@ -3228,8 +3228,11 @@
 isPrime
     "return true if I am a prime Number"
 
+    |limit|
+
     self even ifTrue:[^ self == 2 ].
-    3 to:(self sqrt + 1) by:2 do:[:i |
+    limit := self sqrt.
+    3 to:limit by:2 do:[:i |
         (self \\ i) == 0 ifTrue:[ ^ false ].
     ].                   
     ^ true
@@ -3531,7 +3534,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.200 2009-01-13 17:38:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.201 2009-01-13 20:46:34 cg Exp $'
 ! !
 
 Integer initialize!