diff --git a/slof/fs/packages/disk-label.fs b/slof/fs/packages/disk-label.fs
index e034d64..8859fb0 100644
--- a/slof/fs/packages/disk-label.fs
+++ b/slof/fs/packages/disk-label.fs
@@ -126,6 +126,11 @@ CONSTANT /gpt-part-entry
    debug-disk-label? IF dup ." actual=" .d cr THEN
 ;
 
+: write ( addr len -- actual )
+   debug-disk-label? IF 2dup swap ." write-parent: addr=0x" u. ." len=" .d THEN
+   s" write" $call-parent
+   debug-disk-label? IF dup ." actual=" .d cr THEN
+;
 
 \ read sector to array "block"
 : read-sector ( sector-number -- )