diff --git a/src/c/num_sfun.d b/src/c/num_sfun.d
index 93a0c1433..bfc6804c0 100644
--- a/src/c/num_sfun.d
+++ b/src/c/num_sfun.d
@@ -104,11 +104,11 @@ ecl_abs(cl_object x)
 		 */
 		cl_object r = x->complex.real;
 		cl_object i = x->complex.imag;
-		if (ecl_minusp(r)) r = ecl_negate(x);
+		if (ecl_minusp(r)) r = ecl_negate(r);
 		if (ecl_minusp(i)) i = ecl_negate(i);
 		if (ecl_number_compare(r, i) > 0) {
 			cl_object aux = i;
-			i = r; r = i;
+			i = r; r = aux;
 		}
 		r = ecl_divide(r, i);
 		r = ecl_plus(MAKE_FIXNUM(1), ecl_times(r, r));
diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index 677a5da34..c17b99691 100644
--- a/src/lsp/config.lsp.in
+++ b/src/lsp/config.lsp.in
@@ -46,7 +46,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 2008-04-13 22:17)")
+  "@PACKAGE_VERSION@ (CVS 2008-04-22 11:17)")
 
 (defun machine-type ()
   "Args: ()
@@ -98,7 +98,7 @@ Returns, as a string, the version of the software under which ECL runs."
 #-boehm-gc
 (progn
   (sys::allocate 'CONS 200)
-  (sys::allocate 'STRING 40))
+  (sys::allocate 'BASE-STRING 40))
 
 ;;
 ;; * Set configuration pathnames. Notice the trailing slash!