X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/995eb841c0c43cb35740619c5ae9c0bde939b18b..f3e230a7d779439e10fea9f7f8a8be00bd085bdd:/tools/config.lisp

diff --git a/tools/config.lisp b/tools/config.lisp
index bfc660d..9416610 100644
--- a/tools/config.lisp
+++ b/tools/config.lisp
@@ -122,7 +122,9 @@
       (values 
        (parse-integer (lisp-implementation-version) :end dot1)
        (parse-integer (lisp-implementation-version) :start (1+ dot1) :end dot2)
-       (parse-integer (lisp-implementation-version) :start (1+ dot2) :junk-allowed t))))
+       (if dot2
+	   (parse-integer (lisp-implementation-version) :start (1+ dot2) :junk-allowed t)
+	 0))))
   (defun sbcl>= (req-major req-minor req-micro)
     (multiple-value-bind (major minor micro) (sbcl-version)      
       (or