diff --git a/kernel/dsk.c b/kernel/dsk.c
index d416792..373420c 100644
--- a/kernel/dsk.c
+++ b/kernel/dsk.c
@@ -227,6 +227,7 @@ STATIC WORD play_dj(ddt * pddt)
     fl_readkey();
     pddt2->ddt_descflags &= ~DF_CURLOG;
     pddt->ddt_descflags |= DF_CURLOG;
+    pokeb(0, 0x504, pddt->ddt_logdriveno);
     return M_CHANGED;
   }
   return M_NOT_CHANGED;