diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb
index a23214d..bd792ba 100644
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -1127,7 +1127,7 @@ Public Class frmAdministration
 
         If result = MsgBoxResult.Yes Then
             Try
-                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
+                Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", (select GUID from TBDD_MODULES where UPPER(SHORT_NAME) = 'GLOBIX')"
                 If ClassDatabase.Execute_non_Query(copy, True) Then
 
                     If USER_LANGUAGE = "de-DE" Then