diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 0ee23f052..7b309e0fa 100644
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -1463,7 +1463,7 @@ line break."
         (output-object object stream)
         (dx-let ((state (cons 0 stream)))
           (if obj-supplied-p
-              (with-circularity-detection (object stream)
+              (with-circularity-detection (object stream state)
                 (descend-into (stream)
                   (start-logical-block stream prefix per-line-p suffix)
                   (funcall proc object state stream)
diff --git a/src/code/print.lisp b/src/code/print.lisp
index e6ff5a4d4..fae6f94e1 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -440,20 +440,20 @@ variable: an unreadable object representing the error is printed instead.")
             (write-char #\= stream)
             t)))))
 
-(defmacro with-circularity-detection ((object stream) &body body)
+(defmacro with-circularity-detection ((object stream state) &body body)
   (with-unique-names (marker body-name)
-    `(labels ((,body-name ()
+    `(labels ((,body-name (stream ,state)
                 ,@body))
        (cond ((or (not *print-circle*)
                   (uniquely-identified-by-print-p ,object))
-              (,body-name))
+              (,body-name stream ,state))
              (*circularity-hash-table*
               (let ((,marker (check-for-circularity ,object t :logical-block)))
                 (cond (,marker
                        (when (handle-circularity ,marker ,stream)
-                         (,body-name)))
+                         (,body-name stream ,state)))
                       (t
-                       (,body-name)
+                       (,body-name stream ,state)
                        (when (and *print-circle-not-shared*
                                   (eql (gethash ,object *circularity-hash-table*) :logical-block))
                          (if (listp ,object)
@@ -466,13 +466,16 @@ variable: an unreadable object representing the error is printed instead.")
                              (remhash ,object *circularity-hash-table*)))))))
              (t
               (let ((*circularity-hash-table* (make-hash-table :test 'eq)))
-                (output-object ,object *null-broadcast-stream*)
+                (let ((stream (sb-pretty::make-pretty-stream *null-broadcast-stream*)))
+                  (,body-name stream (cons 0 stream)))
                 (let ((*circularity-counter* 0))
                   (let ((,marker (check-for-circularity ,object t
                                                         :logical-block)))
                     (when ,marker
                       (handle-circularity ,marker ,stream)))
-                  (,body-name))))))))
+                  (,body-name stream ,state))))))))
+
+
 
 ;;;; level and length abbreviations
 
diff --git a/tests/pprint.pure.lisp b/tests/pprint.pure.lisp
index 9d11337ee..eff53a4ea 100644
--- a/tests/pprint.pure.lisp
+++ b/tests/pprint.pure.lisp
@@ -38,3 +38,9 @@
            (vread (read-from-string vstring)))
       (assert (equal list lread))
       (assert (equalp vector vread)))))
+
+(with-test (:name :logical-block-unrelated-object)
+  (assert (equal (with-output-to-string (s)
+                   (let ((*print-circle* t))
+                     (pprint-logical-block (s nil) (princ '(#1=(1) #1#) s))))
+                 "(#1=(1) #1#)")))