diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg
index 383bbf50e9..0fc633185a 100644
--- a/harbour/source/debug/dbgmenu.prg
+++ b/harbour/source/debug/dbgmenu.prg
@@ -73,7 +73,7 @@ function __dbgBuildMenu( oDebugger )  // Builds the debugger pulldown menu
       MENUITEM " ~View "
       MENU
          MENUITEM " ~Sets"            ACTION oDebugger:ViewSets()
-         MENUITEM " ~WorkAreas   F6"  ACTION Alert( "Not implemented yet!" )
+         MENUITEM " ~WorkAreas   F6"  ACTION oDebugger:ShowWorkAreas()
          MENUITEM " ~App Screen  F4 " ACTION oDebugger:ShowAppScreen()
          SEPARATOR
          MENUITEM " ~CallStack"       ACTION oDebugger:ShowCallStack()