--- gforth/gforth.el	2000/09/23 15:06:00	1.43
+++ gforth/gforth.el	2000/10/01 11:20:05	1.44
@@ -160,8 +160,8 @@ OBS! All words in forth-negatives must b
   (setq comment-column 40)
   (make-local-variable 'comment-start-skip)
   (setq comment-start-skip "\\ ")
-  (make-local-variable 'comment-indent-hook)
-  (setq comment-indent-hook 'forth-comment-indent)
+  (make-local-hook 'comment-indent-hook)
+  (add-hook comment-indent-hook 'forth-comment-indent)
   (make-local-variable 'parse-sexp-ignore-comments)
   (setq parse-sexp-ignore-comments t))
   
@@ -241,7 +241,7 @@ Variables controling documentation searc
 ;      (run-forth forth-program-name))
   (run-hooks 'forth-mode-hook))
 
-(setq forth-mode-hook
+(add-hook 'forth-mode-hook
       '(lambda () 
 	 (make-local-variable 'compile-command)
 	 (setq compile-command "gforth ")))