diff --git a/tsgqc_GUI.m b/tsgqc_GUI.m
index 87afc5710babbe3f568418bfd68aa8482943d36e..ef33c1ac89eb5bdfcad228e097de5d886097b86f 100644
--- a/tsgqc_GUI.m
+++ b/tsgqc_GUI.m
@@ -442,6 +442,12 @@ hQcCmenuBad       = uimenu(...
   'Label', 'Bad',...
   'ForegroundColor', 'r',...
   'Callback', @Qc);
+hQcCmenuHarbour       = uimenu(...
+  'Parent', hQcCmenu,...
+  'HandleVisibility','off', ...
+  'Label', 'Harbour',...
+  'ForegroundColor', 'c',...
+  'Callback', @Qc);
 
 
 % Initialize tsg structure
@@ -868,6 +874,9 @@ tsg_initialisation(hMainFig, hQcCmenu)
         case hQcCmenuBad
           tsg.qc.Code.ACTIVE   = tsg.qc.Code.BAD;
           tsg.qc.Color.ACTIVE  = tsg.qc.Color.BAD;
+        case hQcCmenuHarbour
+          tsg.qc.Code.ACTIVE   = tsg.qc.Code.HARBOUR;
+          tsg.qc.Color.ACTIVE  = tsg.qc.Color.HARBOUR;  
       end
 
       setappdata( hMainFig, 'tsg_data', tsg );