--- a/XBMReader.st	Sun Feb 23 14:44:46 2020 +0100
+++ b/XBMReader.st	Sun Feb 23 15:12:23 2020 +0100
@@ -373,7 +373,14 @@
     outStream nextPutLine: '};'.
 
     "
-     XBMReader save:(Image fromFile:'../../goodies/bitmaps/xbmBitmaps/TicTacToe.xbm') onStream:Transcript
+     |file original restored|
+
+     original := Image fromFile:'../../goodies/bitmaps/xbmBitmaps/TicTacToe.xbm'.
+     file := String streamContents:[:stream |
+        XBMReader save:original onStream:stream
+     ].
+     restored := XBMReader fromStream:(file readStream).
+     self assert:(restored = original)
     "
 ! !