diff --git a/Makefile b/Makefile
index c6a7d21..344170d 100644
--- a/Makefile
+++ b/Makefile
@@ -8,7 +8,7 @@ PREFIX = /usr/local
 LIBPREFIX = $(PREFIX)/lib
 
 # флегови за C компајлер и линкер
-CPPFLAGS = -D_POSIX_C_SOURCE=200200L
+CPPFLAGS = -D_POSIX_C_SOURCE=200200L -DDESTDIR=\"$(DESTDIR)\"
 # CFLAGS = -g -std=c99 -pedantic -Wall -O0
 CFLAGS  = -std=c99 -pedantic -Wall -O3
 LDFLAGS = -lm -lc
diff --git a/cirilisp.c b/cirilisp.c
index 01361ae..e10390e 100644
--- a/cirilisp.c
+++ b/cirilisp.c
@@ -61,7 +61,7 @@ void init()
 	addSymbolInternal("конс", &consInt, 0);
 	addSymbolInternal("јед?", &eqvQInt, 0);
 
-	if (!load("/usr/local/lib/cirilisp/инит.ћ"))
+	if (!load(DESTDIR"/usr/local/lib/cirilisp/инит.ћ"))
 	{
 		fprintf(stderr, "Није пронађена стандардна ЋИРЛИСП библиотека\
 \nПрограм се није могао правилно покренути\n");
diff --git a/internals.c b/internals.c
index e0008a6..488adc2 100644
--- a/internals.c
+++ b/internals.c
@@ -568,8 +568,8 @@ object eqvQInt(object parameters)
 				STR(CAR(CDR(parameters))));
 			break;
 		case charObject:
-			BOOL(result) = CHAR(CAR(parameters)) ==
-				CHAR(CAR(CDR(parameters)));
+			BOOL(result) = CHR(CAR(parameters)) ==
+				CHR(CAR(CDR(parameters)));
 			break;
 		case consObject:
 		case procedureObject: