diff --git a/piclib/srfi/1.scm b/piclib/srfi/1.scm
index 13ada184..1c3010f6 100644
--- a/piclib/srfi/1.scm
+++ b/piclib/srfi/1.scm
@@ -55,7 +55,7 @@
   (define (circular-list? x)
     (and (pair? x)
 	 (let rec ((lst (cdr x)))
-	   (cond ((not-pair?) #f)
+	   (cond ((not-pair? lst) #f)
 		 ((null? lst) #f)
 		 ((eq? x lst) #t)
 		 (else (rec (cdr lst)))))))