diff --git a/app/src/gambas3/.lang/.pot b/app/src/gambas3/.lang/.pot
index c3be5be98..2937313ef 100644
--- a/app/src/gambas3/.lang/.pot
+++ b/app/src/gambas3/.lang/.pot
@@ -1428,7 +1428,7 @@ msgid ""
 "All your changes will be lost."
 msgstr ""
 
-#: FEditor.class:2806
+#: FEditor.class:2809
 msgid "(Declarations)"
 msgstr ""
 
diff --git a/app/src/gambas3/.src/Editor/Code/FEditor.class b/app/src/gambas3/.src/Editor/Code/FEditor.class
index ae709679e..c22473c63 100644
--- a/app/src/gambas3/.src/Editor/Code/FEditor.class
+++ b/app/src/gambas3/.src/Editor/Code/FEditor.class
@@ -2705,14 +2705,17 @@ Public Sub ShowWatchResult(sStr As String, X As Integer, Y As Integer)
 
   Dim iColor As Integer
 
+  iColor = Color.TooltipBackground
+  
   If Left(sStr) = "!" Then
     sStr = Mid$(sStr, 2)
     If sStr = "Syntax error" Or If sStr = "Non terminated string" Or If sStr = "Unknown symbol" Then Return
     If sStr Begins "Unexpected " Then Return
     sStr = Design.MakeErrorMessage(sStr)
-    iColor = Color.HSV(0, 64, 255)
-  Else
-    iColor = Color.TooltipBackground
+    With Color[iColor]
+      .Hue = 60
+      iColor = .Color
+    End With
   Endif
 
   ShowMessageLabel(Html(sStr), X, Y, iColor)