--- a/RegressionTests__STCCompilerTests.st	Thu Jun 26 11:44:55 2014 +0200
+++ b/RegressionTests__STCCompilerTests.st	Thu Jun 26 13:24:25 2014 +0200
@@ -493,6 +493,45 @@
     "Modified: / 26-06-2014 / 10:44:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+test_LongIntegeraArray_03
+    | arr scaveneges |
+
+    ( '=====' ) errorPrintCR.
+    arr := LongIntegerArray new: 8.
+    arr at: 1 put: 11123456789.
+    arr at: 8 put: 11123456789.
+    self assert: (arr at: 1) = 11123456789.
+    self assert: (arr at: 8) = 11123456789.
+    ( '   arr = 0x', (ObjectMemory addressOf: arr) hexPrintString ) errorPrintCR.  
+
+    1 to: 100 do:[:i |
+        ( 'Pass ', i printString ) errorPrintCR.
+        scaveneges := ObjectMemory scavengeCount.
+        [ scaveneges == ObjectMemory scavengeCount ] whileTrue:[
+            "/ Allocate some gagbage"
+            Array new: (Random nextIntegerBetween: 1 and: 100)
+        ].
+        ( 'B: arr = 0x', (ObjectMemory addressOf: arr) hexPrintString ) errorPrintCR.
+        ( '   arr at: 1 ==> ', (arr at: 1) printString) errorPrintCR.
+        ( '   arr at: 8 ==> ', (arr at: 8) printString) errorPrintCR.
+        self assert: (arr at: 1) = 11123456789.
+        self assert: (arr at: 8) = 11123456789.
+        ( 'A: arr = 0x', (ObjectMemory addressOf: arr) hexPrintString ) errorPrintCR.
+    ]
+
+
+
+
+
+
+    "
+     self run:#test_LongIntegeraArray_03
+     self new test_LongIntegeraArray_03
+    "
+
+    "Created: / 26-06-2014 / 12:21:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_SignedLongIntegeraArray_01
     | sizes |
     [