--- a/RegressionTests__XMLCoderTests.st	Tue Oct 21 10:11:57 2003 +0200
+++ b/RegressionTests__XMLCoderTests.st	Tue Oct 21 10:22:16 2003 +0200
@@ -28,10 +28,6 @@
 
 history
     "Created: / 26.6.2002 / 10:32:14 / stefan"
-!
-
-history
-    "Created: / 26.6.2002 / 10:32:14 / stefan"
 ! !
 
 !XMLCoderTests methodsFor:'helpers'!
@@ -209,12 +205,13 @@
      self run:#testIdentityDictionary
     "
 !
-    -100 to: 100 do:[:i|
-        self encodeAndDecode:i
+
+testInteger
+    "test encoding an decoding of an integer"
 
     -100 to: 100 do:[:i|
         self encodeAndDecode:i
-     self run:#test1
+    ].
 
     "
      self run:#test1