diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index a9fd6d4ea..8190229cf 100644
--- a/src/lsp/config.lsp.in
+++ b/src/lsp/config.lsp.in
@@ -24,7 +24,7 @@ Returns, as a string, the location of the machine on which ECL runs."
 (defun lisp-implementation-version ()
   "Args:()
 Returns the version of your ECL as a string."
-  "@PACKAGE_VERSION@ (CVS 2007-12-13 20:09)")
+  "@PACKAGE_VERSION@ (CVS 2007-12-18 21:41)")
 
 (defun machine-type ()
   "Args: ()
diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp
index 6584f0612..9bc8166af 100644
--- a/src/lsp/numlib.lsp
+++ b/src/lsp/numlib.lsp
@@ -180,7 +180,7 @@ Returns the hyperbolic arc sine of NUMBER."
 Returns the hyperbolic arc cosine of NUMBER."
   ;(log (+ x (sqrt (* (1- x) (1+ x)))))
   (if #+(or ecl-min) t #-(or ecl-min) (complexp x)
-      (complex-acos x)
+      (complex-acosh x)
       #-(or ecl-min)
       (let* ((x (float x))
 	     (xr (float x 1d0)))