diff --git a/Code/Text-format/new-renderer.lisp b/Code/Text-format/new-renderer.lisp index d9afdec2f076084e457ac77cf7d758f49ff0b5b5..8f44a1dcdfbc130f7fc1172beea655a928bd484a 100644 --- a/Code/Text-format/new-renderer.lisp +++ b/Code/Text-format/new-renderer.lisp @@ -130,7 +130,8 @@ string; but RENDER-OBJECT will emit Netfarm standard format text.")) (defgeneric render-to-stream (object stream) (:documentation "Render a Netfarm value to a stream.") (:method ((ref reference) stream) - (format stream "ref:~a" (reference-hash ref))) + (format stream "ref:~a" + (bytes->base64 (reference-hash ref)))) (:method ((object object) stream) (format stream "ref:~a" (bytes->base64 (hash-object object)))) (:method ((string integer) stream)