diff --git a/blk/122 b/blk/122
index 0e300ce..db94baf 100644
--- a/blk/122
+++ b/blk/122
@@ -11,6 +11,6 @@ Block Editor (B100). Refer to documentation there.
 
 'o' inserts a blank line after the cursor. 'O', before.
 
-'D' deletes "modifier" lines at the cursor.
-
+'D' deletes "modifier" lines at the cursor. The first of those
+lines is copied to IBUF.
                                                         (cont.)
diff --git a/blk/130 b/blk/130
index 0406b6e..ca52391 100644
--- a/blk/130
+++ b/blk/130
@@ -10,5 +10,6 @@
 : $O EDPOS @ 0x3c0 ( 15 * 64 ) >= IF EXIT THEN
     _U EDPOS @ 0x3c0 AND DUP pos! _cpos _zbuf BLK!! contents ;
 : $o EDPOS @ 64 < IF EXIT THEN EDPOS @ 64 + EDPOS ! $O ;
-: $D acc@ 0 DO 16 EDPOS @ 64 / DO i _mvln- LOOP LOOP
+: $D $H 64 icpy
+    acc@ 0 DO 16 EDPOS @ 64 / DO i _mvln- LOOP LOOP
     BLK!! contents ;