       (if changed (message-box (format "there are modified buffers: %s" changed))
     (erl-spawn
       (erl-send-rpc node 'wrangler_distel 'tuple_to_record
-		    (list current-file-name start-line-no start-col-no end-line-no end-col-no))
+		    (list current-file-name start-line-no start-col-no end-line-no end-col-no tab-width))
       (erl-receive (buffer)
 	  ((['rex ['badrpc rsn]]
 	    (message "Refactoring failed: %S" rsn))

	  (message-box "The current buffer has been changed")
    (erl-spawn
      (erl-send-rpc node 'wrangler_distel 'expression_search
		    (list current-file-name start-line-no start-col-no end-line-no end-col-no))
      (erl-receive (buffer)
	  ((['rex ['badrpc rsn]]
	    (message "Searching failed: %S" rsn))

	(buffer (current-buffer)))
    (if (buffer-modified-p buffer) (message-box "Buffer has been changed")
	(erl-spawn
	  (erl-send-rpc node 'wrangler_code_inspector 'find_var_instances(list current-file-name line-no column-no erlang-refac-search-paths tab-width))
	  (erl-receive (buffer)
	      ((['rex ['badrpc rsn]]
		(message "Error: %S" rsn))
