- (let ((dot1 (position #\. (lisp-implementation-version)))
- (dot2 (position #\. (lisp-implementation-version) :from-end t)))
+ (let* ((dot1 (position #\. (lisp-implementation-version)))
+ (dot2 (position #\. (lisp-implementation-version) :start (1+ dot1))))