diff --git a/TBF/Rig/TestMethods/iPerlCommunication/iPerlCommunicationForm.cs b/TBF/Rig/TestMethods/iPerlCommunication/iPerlCommunicationForm.cs
index 28415122a..b769eb77f 100644
--- a/TBF/Rig/TestMethods/iPerlCommunication/iPerlCommunicationForm.cs
+++ b/TBF/Rig/TestMethods/iPerlCommunication/iPerlCommunicationForm.cs
@@ -2914,6 +2914,12 @@ namespace TBF.Rig.TestMethods.iPerlCommunication
 	                }
 	                break;
                 }
+                case "SetFlipModeConstant":
+                    SetFlipModeConstant(iHead, null, ref txt);
+                    break;
+                case "SetFlipModeRandomized":
+                    SetFlipModeRandomized(iHead, null, ref txt);
+                    break;
                 case "WriteRequestPort_u8_Customer_Text":
                     txt = "Not Supported NOW!";//OpticalHeadTest.WriteRequestPort_u8_Customer_Text(iHead);
                     break;