diff --git a/common/visual.fs b/common/visual.fs
index 93d36b4..9d237a6 100644
--- a/common/visual.fs
+++ b/common/visual.fs
@@ -109,6 +109,8 @@ start-size value capacity
          fileh close-file throw
      else
          drop
+         0 to capacity
+         0 to length
      then
 ;