diff --git a/ThorUpdater/FoxBin2Prg.zip b/ThorUpdater/FoxBin2Prg.zip
index 5bae2e4..0f55569 100644
Binary files a/ThorUpdater/FoxBin2Prg.zip and b/ThorUpdater/FoxBin2Prg.zip differ
diff --git a/ThorUpdater/FoxBin2PrgVersion.txt b/ThorUpdater/FoxBin2PrgVersion.txt
index c461402..1efdca0 100644
--- a/ThorUpdater/FoxBin2PrgVersion.txt
+++ b/ThorUpdater/FoxBin2PrgVersion.txt
@@ -6,11 +6,28 @@ with toUpdateObject
 	.VersionNumber    = '1.19.80 - 20230808'
 	.AvailableVersion = 'FoxBin2PRG-1.19.80-update-20230808'
 	.Notes            = GetNotes()
-*	.RegisterWithThor = GetRegisterWithThor()
-	.RegisterWithThor = "SET STEP ON"+0h0d0a+"*"+NVL(EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder'),'fail')
+	.RegisterWithThor = GetRegisterWithThor()
+*	.RegisterWithThor = "SET STEP ON"+0h0d0a+"*"+NVL(EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder'),'fail')
 endwith
 return toUpdateObject
 
+procedure GetRegisterWithThor
+ local lcCommand
+ text to lcCommand noshow
+SET STEP ON
+lcBase = EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder')
+IF FILE(m.lcBase+"clean_copied_memo.prg") THEN
+*old crap
+ DO m.lcBase+"clean_thorfolder.prg"
+ENDIF &&FILE(m.lcBase+"clean_copied_memo.prg")
+
+DELETE FILE (m.lcBase+"clean_thorfolder.*")
+
+ endtext
+
+ return lcCommand
+endproc &&GetRegisterWithThor
+
 * Get the notes for the project.
 
 procedure GetNotes