Index: WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml
===================================================================
diff -u -r41608 -r41614
--- WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41608)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator.cls.xml	(.../HandelAuthenticator.cls.xml)	(revision 41614)
@@ -52,7 +52,7 @@
 			
 			Set Response.IsContactGegevensFormulierNodig = (DecrypteerRequest.DataOpt = "")
 			Set Response.PersonalityId = LoginParameters.PersonalityID
-			Set Response.KlantId = $Piece(KlantData.ID,"_",2)
+			Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.ID,HandelPersonality.GeefVhisie4Prefix(),"")
 			Set Response.KlantNaam = KlantData.Naam
 			If $$$HasLength(DecrypteerRequest.DataOpt) {
 				Set Response.GebruikerId = 1
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml
===================================================================
diff -u -r41609 -r41614
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 41609)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 41614)
@@ -50,7 +50,7 @@
 		Quit ..LegacyPartijAPI.GeefKlantPartijID(KlantId)
 	} Else {
 		#dim HandelPersonality As DOM.common.impl.HandelPersonality = ##class(DOM.common.impl.HandelPersonality).%OpenId(PersonalityId)
-		Quit HandelPersonality.GeefPrefix()_KlantId
+		Quit HandelPersonality.GeefVhisie4Prefix()_KlantId
 	}
 ]]></Implementation>
 </Method>