2014-08-17: adjusted test output.

adjusted test output.

diff --git a/tests/strangecomments.scm b/tests/strangecomments.scm
--- a/tests/strangecomments.scm
+++ b/tests/strangecomments.scm
@@ -1,7 +1,19 @@
+; works
+(display  
+  (call-with-input-string  "  foo ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . goo . hoo" wisp-scheme-read-chunk))
+(newline)
+(display
+  (call-with-input-string  "  foo \n___. goo . hoo" wisp-scheme-read-chunk))
+(newline)
+
+; broken
 ; expected:
 ; ((2 (foo)) (2) (0) (0) (2 foo : moo 
 ; ) (4 #{.}# [goo #{.}# hoo]))
 (display  
   (call-with-input-string  "  (foo) ; bar\n  ; nop \n\n; nup\n; nup \n  \n\n\n  foo : moo \"\n\" \n___ . [goo . hoo]" wisp-scheme-read-chunk))
 (newline)
+(display
+  (call-with-input-string  "  foo \n___. [goo . hoo]" wisp-scheme-read-chunk))
+(newline)