--- a/RegressionTests__IntegerTest.st	Mon Apr 26 10:46:39 2010 +0200
+++ b/RegressionTests__IntegerTest.st	Tue Apr 27 00:02:50 2010 +0200
@@ -3100,8 +3100,8 @@
      theRest := ((theBase raisedTo: theOrder) - 1) / (theBase - 1).
      30 to: 67 "theOrder - 1" do:
  [:theFactorOrder |
-Transcript show:theOrder; space.
-Transcript showCR:theFactorOrder.
+"/Transcript show:theOrder; space.
+"/Transcript showCR:theFactorOrder.
      (theOrder \\ theFactorOrder) = 0
         ifTrue: [       "<<<< is a divisor of the order >>>>"
 
@@ -3140,6 +3140,8 @@
     "
      self new test_gcdBug1
     "
+
+    "Modified: / 27-04-2010 / 00:02:02 / cg"
 !
 
 test_gcdBug2
@@ -3155,8 +3157,8 @@
      theRest := ((theBase raisedTo: theOrder) - 1) / (theBase - 1).
      60 to: 67 "theOrder - 1" do:
  [:theFactorOrder |
-Transcript show:theOrder; space.
-Transcript showCR:theFactorOrder.
+"/Transcript show:theOrder; space.
+"/Transcript showCR:theFactorOrder.
      (theOrder \\ theFactorOrder) = 0
         ifTrue: [       "<<<< is a divisor of the order >>>>"
 
@@ -3195,6 +3197,8 @@
     "
      self new test_gcdBug2
     "
+
+    "Modified: / 27-04-2010 / 00:02:09 / cg"
 !
 
 test_gcdBug3
@@ -3210,8 +3214,8 @@
      theRest := ((theBase raisedTo: theOrder) - 1) / (theBase - 1).
      2 to:theOrder - 1 do:
  [:theFactorOrder |
-Transcript show:theOrder; space.
-Transcript showCR:theFactorOrder.
+"/Transcript show:theOrder; space.
+"/Transcript showCR:theFactorOrder.
      (theOrder \\ theFactorOrder) = 0
         ifTrue: [       "<<<< is a divisor of the order >>>>"
 
@@ -3250,6 +3254,8 @@
     "
      self new test_gcdBug2
     "
+
+    "Modified: / 27-04-2010 / 00:02:15 / cg"
 ! !
 
 !IntegerTest class methodsFor:'documentation'!