--- a/lisp/ilisp/completer.el	Mon Aug 13 08:46:35 2007 +0200
+++ b/lisp/ilisp/completer.el	Mon Aug 13 08:46:56 2007 +0200
@@ -70,6 +70,9 @@
 ;;; /u/mi/  /usr/misc/
 ;;;
 
+
+(require 'cl)
+
 ;;;%Globals
 ;;;%%Switches
 (defvar completer-load-hook nil
@@ -124,6 +127,12 @@
 (defvar completer-mode nil "Last completer mode.")
 (defvar completer-result nil "Last completer result.")
 
+(eval-when (eval load compile)
+  (if (not (fboundp 'completion-display-completion-list-function))
+      (setf completion-display-completion-list-function
+	    'display-completion-list)))
+
+
 ;;;%Utilities
 (defun completer-message (message &optional point)
   "Display MESSAGE at optional POINT for two seconds."
@@ -738,7 +747,7 @@
 
 ;;;
 (defun completer-new-cmd (cmd)
-  "Return t if we can't execute the old minibuffer version of CMD."
+  "Return T if we can't execute the old minibuffer version of CMD."
   (if (or completer-disable
 	  (let ((string (completer-minibuf-string)))
 	    (or