   (setq indent-region-function 'lisp-indent-region)
   (make-local-variable 'lisp-indent-function)
   (set lisp-indent-function 'ralph-indent-function)
-  (set-syntax-table ralph-mode-syntax-table))
+  (set-syntax-table ralph-mode-syntax-table)
+  (make-local-variable 'comment-indent-function)
+  (setq comment-indent-function 'lisp-comment-indent)
+  (make-local-variable 'comment-start)
+  (setq comment-start ";")
+  (run-hooks 'ralph-mode-hook))
 
 ;; indentation offsets
 (put 'when 'ralph-indent-function 1)

	   'words)
	 . font-lock-warning-face)))

(defvar ralph-mode-syntax-table
  (let ((table (copy-syntax-table lisp-mode-syntax-table)))
    (modify-syntax-entry ?\[ "(]" table)

              (method
               (funcall method indent-point state)))))))

(provide 'ralph)