--- gforth/gforth.el	1999/05/09 21:21:55	1.32
+++ gforth/gforth.el	1999/07/24 13:07:19	1.34
@@ -40,20 +40,20 @@
 
 
 (defvar forth-positives
-  " : :noname m: code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class "
-  "Contains all words which will cause the indent-level to be incremented
+  " : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class "
+  "*Contains all words which will cause the indent-level to be incremented
 on the next line.
 OBS! All words in forth-positives must be surrounded by spaces.")
 
 (defvar forth-negatives
   " ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: "
-  "Contains all words which will cause the indent-level to be decremented
+  "*Contains all words which will cause the indent-level to be decremented
 on the current line.
 OBS! All words in forth-negatives must be surrounded by spaces.")
 
 (defvar forth-zeroes
   " : :noname code interpretation: public: private: how: implements class class; "
-  "Contains all words which causes the indent to go to zero")
+  "*Contains all words which causes the indent to go to zero")
 
 (setq forth-zero 0)