diff --git a/apps/zasm/symbol.asm b/apps/zasm/symbol.asm
index 33a7aaa..21f96a7 100644
--- a/apps/zasm/symbol.asm
+++ b/apps/zasm/symbol.asm
@@ -110,12 +110,14 @@ symRegister:
 	; Is our new name going to make us go out of bounds?
 	push	hl		; --> lvl 2
 	push	de		; --> lvl 3
+	ld d, 0
+	ld e, c
+	add hl, de		; if carry set here, sbc will carry too	
 	ld	e, (ix+2)	; DE --> pointer to record list, which is also
 	ld	d, (ix+3)	; the end of names pool
 	; DE --> names end
-	ld	a, c
-	call	addHL
-	call	cpHLDE
+	
+	sbc	hl, de		; compares hl and de destructively
 	pop	de		; <-- lvl 3
 	pop	hl		; <-- lvl 2
 	jr	nc, .outOfMemory	; HL >= DE