--- a/ConstantNode.st	Wed Oct 30 17:13:03 2019 +0100
+++ b/ConstantNode.st	Sun Nov 03 11:54:25 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -210,16 +208,20 @@
 
 codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "no code at all"
+    |msg|
+
+    msg := 'Useless constant reference'.
 
     "/ but remember symbolic literals (such as #TODO)
     value isSymbol ifTrue:[
         aCompiler addLiteral:value.
+
+        ((#fixme sameAs:value) or:[#todo sameAs:value]) ifTrue:[
+            msg := 'Reminder in code: ',value  
+        ].
     ].
-    aCompiler 
-        warning:'Useless constant reference'
-        position:startPosition to:endPosition.    
 
-    ^ self
+    aCompiler warning:msg position:startPosition to:endPosition.    
 
     "Modified: / 04-03-2007 / 15:29:54 / cg"
 !