Index: APPS/MAG/Inventaris/impl/InventarisService.cls.xml
===================================================================
diff -u -r73281 -r73284
--- APPS/MAG/Inventaris/impl/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 73281)
+++ APPS/MAG/Inventaris/impl/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 73284)
@@ -534,7 +534,10 @@
 <Method name="VerplaatsPallet">
 <FormalSpec>PalletID:%String,DoelLocatieID:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set PalletID = $Extract(PalletID, 1, 8)
+	If ($Length(PalletID) <= 9) {
+		Set PalletID = $Extract(PalletID, 1, 8)
+	}
+	
 	If (##class(APPS.VisiDot.impl.Tech).IsFrameID(PalletID)){
 		Set PalletID = ##class(APPS.VisiDot.impl.Tech).GeefPalletIDVanVHossID(PalletID)
 	}