diff --git a/elisp/ghc-func.el b/elisp/ghc-func.el
index d50f841..a9fbb25 100644
--- a/elisp/ghc-func.el
+++ b/elisp/ghc-func.el
@@ -65,6 +65,7 @@
     (funcall func)
     (ghc-read-lisp-this-buffer)))
 
+;; OK/NG are ignored.
 (defun ghc-read-lisp-this-buffer ()
   (save-excursion
     (goto-char (point-min))
diff --git a/elisp/ghc-ins-mod.el b/elisp/ghc-ins-mod.el
index c8b2876..5285d3f 100644
--- a/elisp/ghc-ins-mod.el
+++ b/elisp/ghc-ins-mod.el
@@ -91,6 +91,6 @@
 (defun ghc-ins-mod-callback ()
   (let ((mods (ghc-read-lisp-this-buffer)))
     (setq ghc-ins-mod-rendezvous t)
-    (setq ghc-ins-mod-results mods))) ;; fixme -- OK
+    (setq ghc-ins-mod-results mods)))
 
 (provide 'ghc-ins-mod)