diff --git a/WebApp.st b/WebApp.st
index 694b539..2551ecf 100644
--- a/WebApp.st
+++ b/WebApp.st
@@ -146,6 +146,22 @@ Iliad.ILWidget subclass: ProcedureWidget [
 ]
 
 
+ProcedureWidget subclass: IMSIDetachWidget [
+    contents [
+        ^ [:e |
+            e a
+                text: 'Start IMSI Detach';
+                action: [self doIMSIDetach]
+            ]
+    ]
+
+    doIMSIDetach [
+        self runProcedure: [
+            self application gsmServer
+                doIMSIDetach: self session gsmConfig] name: 'IMSI Detach'.
+    ]
+]
+
 ProcedureWidget subclass: LUWidget [
     contents [
         ^ [:e |
@@ -204,7 +220,7 @@ Iliad.ILSession subclass: GSMTestphoneSession [
 ]
 
 Iliad.ILApplication subclass: GSMTestphoneApp [
-    | config call lu serverConfig gsmServer  procedureWidget ussd |
+    | config call lu serverConfig gsmServer  procedureWidget ussd imsiDetach |
     GSMTestphoneApp class >> path [ ^ 'testphone' ]
 
     GSMTestphoneApp class >> initialize [
@@ -231,6 +247,10 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
         ^ call ifNil: [call := CallWidget new]
     ]
 
+    imsiDetach [
+        ^ imsiDetach ifNil: [imsiDetach := IMSIDetachWidget new].
+    ]
+
     lu [
         ^ lu ifNil: [lu := LUWidget new]
     ]
@@ -246,6 +266,7 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
                 build: self cometConnection;
                 build: self serverConfig;
                 build: self phoneConfig;
+                build: self imsiDetach;
                 build: self lu;
                 build: self call;
                 build: self ussd;