diff --git a/src/dcp/versa.211 b/src/dcp/versa.211
index 186fc608..0367c78f 100644
--- a/src/dcp/versa.211
+++ b/src/dcp/versa.211
@@ -4519,11 +4519,13 @@ doline:	setzm outena		;disable output
 	setzm count		;count of saved characters
 	move x,lftmar		;underline from left margin by default
 	movem x,stubit
+	setzm basel
 	move x,[440700,,rescan]
 	movem x,ptr
 	call dolin1
 	setom outena
 	setzm seper
+	setzm basel
 	move x,[440700,,rescan]
 	movem x,ptr
 	call dolin1
@@ -4702,7 +4704,7 @@ bsladr:	skipa a,basel
 bsladj:	 setzi a,		;relative to 0 (absolute)
 	call xarg1s
 	 return
-	addi a,(x)
+	add a,x
 	movem a,basel
 	aos (p)
 	return