diff --git a/asdf.lisp b/asdf.lisp
index fffa42cc343f4bc57473817ce447a5b986e35a7c..e03b06da34da3b30d02286973f4e4129da177beb 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -187,7 +187,7 @@
 ;;;;
 (defparameter *asdf-version*
   ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
-  (subseq "VERSION:1.600" (1+ (length "VERSION"))))
+  (subseq "VERSION:1.601" (1+ (length "VERSION"))))
 
 (defun asdf-version ()
   *asdf-version*)
@@ -438,7 +438,7 @@ and NIL NAME and TYPE components" ;;; what about VERSION???
   #+cmu
   (cdr (assoc (intern x :keyword) ext:*environment-list*))
   #+lispworks
-  (lispworks:environment-xiable x)
+  (lispworks:environment-variable x)
   #+allegro
   (sys:getenv x)
   #+gcl