--- a/Scanner.st	Wed Oct 05 09:24:11 2011 +0200
+++ b/Scanner.st	Wed Oct 05 10:09:45 2011 +0200
@@ -713,6 +713,18 @@
     exitBlock := aBlock
 !
 
+getCollectedComments
+    "retrieve the so far collected comments, reset comment collection"
+
+    |comments|
+
+    (comments := currentComments) isEmptyOrNil ifTrue:[^ nil].
+    currentComments := nil.
+    ^ comments
+
+    "Created: / 05-10-2011 / 10:09:01 / cg"
+!
+
 inArrayLiteral:aBoolean
     inArrayLiteral := aBoolean
 !
@@ -3343,11 +3355,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.270 2011-10-05 07:24:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.271 2011-10-05 08:09:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.270 2011-10-05 07:24:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.271 2011-10-05 08:09:45 cg Exp $'
 ! !
 
 Scanner initialize!