--- a/tests/FormTests.st	Tue Jan 10 16:53:12 2017 +0000
+++ b/tests/FormTests.st	Tue Jan 10 23:29:23 2017 +0000
@@ -9,6 +9,7 @@
 	category:'Compatibility-ST80-Graphics-Display Objects-Tests'
 !
 
+
 !FormTests methodsFor:'running'!
 
 setUp
@@ -26,19 +27,27 @@
     "
     https://swing.fit.cvut.cz/projects/stx-jv/ticket/25
     "
-    | form font |
+    | form font bits1 bits2 |
 
     self skipIf: ConfigurableFeatures hasXFT not description: 'XFT support not compiled in'.
     form := Form width:32 height:32 depth:24.
+    self assert: form device blackpixel = 0.
     form paint: Color black on: Color white.
     form clear.
-    self assert: (form bits allSatisfy:[:byte | byte == 255 ]).
+    bits1 := form bits.
+    self assert: (bits1 size \\ 4) == 0.
+    1 to: bits1 size by: 4 do:[:i |
+        self assert: ((i \\ 4) == 0 or:[ (bits1 at: i) == 255 ])
+    ].
     font := XftFontDescription for: SimpleView defaultFont.
     form font: font.
     form displayString: 'X' x: 16 y: 16.
-    self assert: (form bits anySatisfy:[:byte | byte ~~ 255 ]).
+    bits2 := form bits.
+    self assert: (bits1 size \\ 4) == 0.
+    self assert: (bits1 asArray = bits2 asArray) not
 
     "Created: / 26-11-2016 / 00:23:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 10-01-2017 / 23:22:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_issue_82
@@ -55,3 +64,10 @@
     "Created: / 25-04-2016 / 20:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!FormTests class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+