diff --git a/app/src/gambas3/.src/Editor/Code/FProcedureList.class b/app/src/gambas3/.src/Editor/Code/FProcedureList.class
index 5f47760bf..6bbaccc35 100644
--- a/app/src/gambas3/.src/Editor/Code/FProcedureList.class
+++ b/app/src/gambas3/.src/Editor/Code/FProcedureList.class
@@ -178,7 +178,8 @@ Public Sub gvwProc_Draw(X As Integer, Y As Integer, Width As Integer, Height As
     
   Endif
   
-  If Row = $iCurrent Then Paint.FillRect(X, Y, Width, Height, Color.Merge(Color.LightBackground, Color.TextBackground))
+  If Row = $iCurrent Then Paint.FillRect(X, Y, Width, Height, Color.SetAlpha(Color.LightBackground, 192))
+  If Row = $iInit Then Paint.FillRect(X, Y, Width, Height, Color.SetAlpha(Color.LightBackground, 128))
   
   Paint.Background = Color.TextForeground
   Paint.Font.Bold = False
@@ -206,10 +207,10 @@ Public Sub gvwProc_Draw(X As Integer, Y As Integer, Width As Integer, Height As
   If Row = $iInit Then Paint.DrawTextShadow(sName, X + 2, Y, Width - 4, Height, Align.Left)
   Paint.DrawText(sName, X + 2, Y, Width - 4, Height, Align.Left)
   
-  If Row = $iInit Then
-    Paint.Rectangle(X + 0.5, Y + 0.5, Width - 1, Height - 1)
-    Paint.Background = Color.SelectedBackground
-    Paint.Stroke
-  Endif
+  ' If Row = $iInit Then
+  '   Paint.Rectangle(X + 0.5, Y + 0.5, Width - 1, Height - 1)
+  '   Paint.Background = Color.SelectedBackground
+  '   Paint.Stroke
+  ' Endif
 
 End